ReadFileByLine <- function( file.name ) {
	# Read a file by lines.
	#
	# Args:
	#	file.name: Name (path) of the the file to be read, in string form.
	#
	# Returns:
	#	N/A
	con = file(file.name, open='r')
	# Read n=1 line each time
	while (length(line <- readLines(con, n=1, warn=FALSE)) > 0) {
		# print(line)
		# TODO
	}
	close(con)
}
